home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / maxime.dxr / 00132.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  923 b   |  39 lines
  1. on enterFrame
  2.   if the puppet of sprite 2 = 0 then
  3.     puppetSprite(2, 1)
  4.     puppetSprite(3, 1)
  5.     puppetSprite(4, 1)
  6.     set the locH of sprite 2 to -135
  7.     set the locV of sprite 2 to 66
  8.   end if
  9. end
  10.  
  11. on exitFrame
  12.   global Aframe
  13.   if rollOver(5) then
  14.     set Aframe to the frame
  15.     puppetSprite(2, 0)
  16.     go("naveg")
  17.   end if
  18.   set the visible of sprite 2 to 1
  19.   set the locH of sprite 2 to the locH of sprite 2 + 15
  20.   if the locH of sprite 2 >= 640 then
  21.     set the locH of sprite 2 to -135
  22.   end if
  23.   go(the frame)
  24. end
  25.  
  26. on mouseUp
  27.   global sprpos
  28.   if rollOver(2) = 1 then
  29.     set sprpos to 1
  30.     set the locH of sprite 3 to the locH of sprite 2
  31.     set the locV of sprite 3 to the locV of sprite 2
  32.     set the locH of sprite 4 to the locH of sprite 2
  33.     set the locV of sprite 4 to the locV of sprite 2
  34.     set the visible of sprite 2 to 0
  35.     set the visible of sprite 3 to 1
  36.     go(the frame + 1)
  37.   end if
  38. end
  39.